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14-Sep-1 LIBRAR.SRCJCOMPRESS.B32;1 (1) | 
! Compress the ee 
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MODULE Lib_compress ( 

LANGUAGE (OL SS 5g) « 
pPEns = *v04-000' 
BEGIN 


' 
SRO RRR AAA ERA REA ERATE AERA AAA EEAE TERE 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED yee A LICENSE AND MAY BE USED AND gt LA 
ONLY RDA R OF ICENS 


; N 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
‘® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
® 
® 
*® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. . 
*® 
® 
*® 
*® 
® 
® 
*® 
® 
* 
® 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ oepoRat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
= . 


'® DIGITAL ASSUMES NO RESPONSIBIL 
'® SOFTWARE ON EQUIPMENT WHICH IS 


E 
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ITY FOR THE USE OR RELIABILITY OF ITS 
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NOT SUPPLIED BY DIGITAL. 
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FACILITY: Library command processor 
i ABSTRACT: 
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i 

0 : The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 

0 : command. It utilizes the Librarian procedure set to perform 

Bip the actual modifications to the Library. 
0041 i ENVIRONMENT: 
004 i 
004 ' VAX native, user mode. 

0044 ! 

0045 leo 

0046 ! 
0047 ! 

Ones AUTHOR: Benn Schreiber, CREATION DATE: 22-June-1979 
Oper MODIFIED BY: 

B036 : v03-003 MCNO145 aria del C. Nasr 08-Feb-1984 

005 : When using the /COMPRESS qualifier, if the input Library 

0054 : is in data reduced format, do not e expand the new one. 
st Expansion will only be done when /DATA=EXPAND is used. 
0057 : v03-002 GJA0064 Greg Awdziewicz 26-Jan-1984 


vouz600 Esor9Hs 91:49:92 YMaldaP des cBbekdeOZ8. ae 


3 8 038 | Allow benign Baca of an empty library. 

: 60 060 1: v03-001 swT0056 eague 16-Sep-1982 

3 $3 be) : Equipped with och Ba ace for /COMPRESSCRES CE. 

; 6 §0g 1! v02-007 RPG0037 ob Gro 15-Jan-1982 
$ $e bee ! } Use ee history attr putes. rather than default. 

Sag 066 1 | v02-006 PG0036 Bob Gros 18-Dec-1981 
; 24 +d : } Improve tne reporting with upaete history 

: 69 0069 1} v02=005 RPGO035 Bob Grosso 7=Aug-1981 
3 £9 Boy : LibSgl_ctlmsk now a quadword. 

co 2 007¢ 1 i v02=004 RPGO034 Bob Grosso 30-Jul-1981 
3 7 BRo7 : Support CREATESKEEP. 

te: 0075 1! v02=003 BLS0029 Benn Schreiber 23-Dec-1980 

3 r6 poe ! Change messages to use message compiler. 

: 78 0078 1: V02-002 RPGO004 Bob Grosso 3-Sep-1980 

: 79 0079 1! Exit read or write loops and print end of module header 

; w 0080 1! and continue compressing. 

; 81 0081 : lon 

: 1 
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; 85 084 1 LIBRARY 

; : 085 1 *SYSSLIBRARY:STARLET.L32'; 

; 0 § 1 REQUIRE 

: 8 0 1 "PREF IX'; 

; 0271 1 REQUIRE 

; 90 0 f 1 "LIBDEF'; 

oe 0560 1 REQUIRE 

; 932) 1 *LBRDEF'; 

; 6 11 ¢ 1 

; 94 1155 1 EXTERNAL ROUTINE 

. oe 1154 1 Lib get nen. 

: 1155 1 LborSdcx_map: addressing mode (general) 

: 97 1156 1 Lbr$get_history : ADDRESSING_MODE (GENERAL), !Get the Library history 

:; 98 1157 1 Lbr$put_history : ADDRESSING MODE (GENERAL),!Replace history ? 

; 99 1158 1 lor get index : ADDRESSING_MODE (GENERAL), !Call routine for index entries 

: 100 1159 1 Lbr$find : ADDRESSING MODE” (GENERAL), 'Find module by RFA 

s 101 1160 1 Lbr$lookup_key : ADDRE MODE (GENERAL), !Lookup key in index 

: 102 1161 1 Lobr$Sinsert_key : ADDRESSING MODE (GENERAL), !Insert new key into index 

; 103 1196 1 Lbr$put_end : ADDRESSING MOBE (GENERAL), 'Terminate writing module text 

; 104 1165 1 Lor$set_index : ADDRESSING MODE (GENERAL), !Set index number to use 

; 105 1164 1 Lbr$set_module : ADD°ESSING_MODE (GENERALS, iRead/update module header 

: 106 1165 1 Lobr$get_record : ADURESSING_MODE (GENERAL), !Read text record 

; 107 1166 1 lLbr$put_record : ADDRESSING MODE (GENERAL), !Write text record 

; 108 1167 1 Lbr$search : ADDRESSING MODE (GENERAL), ‘Search an index for an RFA 

; 109 1168 1 Lbr$open : ADDRESSING MODE (GENERAL) ‘Open Library 

: 110 1169 1 Lbr$close : ADDRESSING MODE (GENERALS, iClose Library 

; 6111 1170 1 LbrSini_control : ADDRESSING_MODE (GENERAL),!Initialize control index. 

s; 12 ww 6 lLorSinsert_time : ADDRESSING_MODE (GENERAL),!Set module insert date/time 

s 335 1196 1 Lib_log_op, 'Log operation 

3; (114 1173 «1 Lib_create_lib; !Create output Library 

3: 195 1174 «(1 

s 6 1175 1 EXTERNAL 

s Ti" 1176 1 Lbr$gl_control : REF BBLOCK ADDRESSING MODE (GENERAL), !Librarian control table address 
; 118 1177 «1 Lor$gl_rmsstv : ADDRESSING_MODE (GENERAL), !RMS STV from Librarian 

; 119 1178 #1 Lib$gl_type, ‘Type of $F ery 

: 120 1179 «1 LibSal_hdrlen : VECTOR C,LONG) ‘Lengths of various module headers 
> 121 1180 1 LibSal"ascbinf : VECTOR C,LONGI, iKey Lengths 

3; 122 1181 1 Lib$gl_keysize, ‘Max size of key in library 

: 1s? 1136 1 Lib$gl_libctl : BLOCK [2], ‘Input Uibrary control index 

: 124 1183 (1 Lib$gl_libfdb : REF BBLOCK, ‘Pointer to Library FDB 

: 125 1184 1 Lib$gl_outfdb : REF BBLOCK, 'Pointer to output Library FDB 

: 126 1185 1 Lib$Sgi_ctlmsk : BLOCK [1 ‘Librarian control flags 

s Yer 1188 1 Lib$gl_cre8flags : BITVECTOR, ‘Compress option flags : 
: 128 1187 1 Lib$gl_ailgbls, ‘Number of globals to allocate in new Library 
3 te 1188 1 Lib$gl_allmods, ‘Number of modules to allocate in new Library 
: 130 1189 1 Lib$gl_allksz, 'Size of keys in new Library 

3; «1351 1190 1 Lib$gl_allhis ‘Max number of history records in new Library 
: 13 1191 1 Lib$gl-objgsdix, iIndex number of object globals 

3 37 1138 : Lib$gl_modnamix; !Index number of module names 

: 135 1194 1 eaten, LITERAL 

: «136 1195 1 Lor$_nul idx ! Index is eapty. 

3; 137 1196 1 LibS-emptylibrary, ! An empty Library is to be 

; ia 1197 1 ' compressed. 

3; 19 1198 1 Lib$S_cnvrting, 'Converting info message 

; 140 1199 1 Lib$_histerr, ‘Error in update history 

3; (141 1200 1 Lib$_indexerr, 'Some strange index error 


71386 93:95:25 HofaRAnSReScompaess.095.1 — 2) 


d 9 
LIB_COMPRESS 16-Sep 
107000 14-Sep 
3 108 1 4 1 Lib$S_initerr, ‘Initialization error | 
; 14 1 § 1 Lib$S_inserted, ‘Module inserted 
3 144 1205 1 LibS_inserterr, ‘Error inserting into index 
3; «6145 1206 1 Lib$_lookuperr, ‘Error looking up module 
; rs : 8? : LibS_mhderr; ‘Module header error 
; 148 1 0 1 FORWARD ROUTINE 
3; «149 1208 1 Lib_put_history, jSeey over the history records. 
; 150 1209 1 get_index_if_not_empty, ' Call Lbr$Get_index. 
: 151 1210 1 copymodule 'Copy one object module 
i 138 Weil 4 enterglobals; ‘Enter globals for obj lib 
; 18% 1 1§ 1 GLOBAL 
; «155 1214 1 dcx_map_desc : VECTOR (2); 
; 156 1215 1 
s 97 1216 1 OWN 
: 158 1217 1 curindex, ‘Current index being searched 
; 159 1218 1 newtxtrfa : BBLOCK Cdsc$c_s_bin], ‘Module RFA in new library 
: 160 1219 #1 out libindex, 'Control index for output Library 
: 161 1220 1 func : LONG INITIAL (Lbr$c_create); 'Function to create Library 
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1 GLOBAL ROUTINE Lib_comprs_lib (after_func) = 
BEGIN 


'o¢ 
FUNCTIONAL DESCRIPTION: 
This routine compresses one Library into another. | 
CALLING SEQUENCE: 
status = Lib_comprs_lib (after _func) 
INPUT PARAMETERS: 


after_func is the function (lbr$c_read, lbr$c_update) to open the compressed Library with 
after the compress has been completed 


IMPLICIT INPUTS: 


BESS SSLPSRASLSSELS OR ORE TANT NSS STS ORS 


; 1 

; 1 

3 1 

; 1 

3 1 

3 1 

3 1 

3 1 

; 1 

; 1 
; 1 
3 1 
; 1 | 
; 1 

; 1 | 
3 1 

; 1 | 
3 1 

: | 

; 124 Lib$Sgl_libfdb is the pointer to the Library (input FDB) 
3 13 Lib$gl_outfdb is the pointer to the output FDB 
: ist IMPLICIT OUTPUTS: 

3 ise Lib$gl_libfd is changed to point to the output FDB 

$ 154 SIDE EFFECTS: 

; 138 NONE 

3 1 oo 

3 \ 

3 125 LOCAL , 

3 125 usrmoghdrlen, ' temp store expansion size of module header 

: 12 header : REF BBLOCK, 

: 12 status; 

: 12 

: 1s BIND 

5 1 libdesc = Lib$Sgl_Libfdb p iaest nendose? : BBLOCK, ‘Name the filename descriptor 

; 126 outdesc = i 1b 598 out (db fdb$l_namdesc] : BBLOCK, ! for input and output Libraries 

: 1261 Libnamblk = Lib$Sgl_libfdb b fgpSt_nen : BBLOCK, ‘Name the NAM blocks 
; 204 12 ¢ outnamblk = Lib$Sgl_outfdb Cfdb$t_nam] : BBLOCK; t 280 

> 205 1263 2 | 
: $9 1588 ! Determine what create options we need to derive from input Library | 
; 209 1267 : and do it. 
: 210 1268 header = .lbr$gl_control Clbr$l_hdrptr); ‘point to Library header — 
: Hf 156? IF NOT .Lib$gl_cre8flags Legg! opt_gbls] : sopals specified by option? 
3 i 1270 THEN Libsgt alTgbls = .header CThd$l_idxcnt] - .header Clhd$l_modcnt); !No--compute from header 

: 21 1271 T .LibSgl_cre8flags Lidse opt_mods 'Modules specified by option 

3: 214 1 1 THEN Lidsgl alTmods = .header (Thd$l_modcnt) + .header Clhd$l_idxovh); 

3: 215 127 IF NOT .L pal crept lage Cibse opt_ksz ‘Key size specified? 

: 16 1274 THEN IF .LibSgT_ctimsk Clib$v_ofdlibJ - : 

: 21 1275 THEN sosat ot tksz = .LibSal_ascbinf C.lib$gl_type] ! if old library, then get new size 

3 13 1576 ELSE BEG] 
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if /COMPRESS=HISTORY:n specified then its value will be used, 


F 
L1B COMPRESS e=3ep=198e 12:99:58 EtTeRan’SReScomPREss.039; 1 Pove 35 ve 
8 Get size of keys from input Library if new format | 
0 BIND 
1 indexdesc = .header + Lhd$c_idxdesc : BBLOCK; !Point to first index descriptor 
Lidsglaltksz = ,indexdesc Cidd$w_keylen] = 1; 'Get size of keys minus count byte | 
gg LIBBRLSEPZR Thos CLIBERLSptLKSEH = crue Ise Set Fed hon ture “eterence | 
To determine the maximum number of history records for new Library, 
! 
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else use attribute from old Library header. 
iF NOT -LibSgl_cre8flags Clib$c_opt_luhs] 
Lib$Sgl_allhis = .header Clhd$w_maxluhrec); 
perform (LBr$ini_control (outlibindex, func, 
L_type, outnamblk), Lib$S_initerr, 
1, outdesc); 


! If the user specified /COMPRESS, (not /DATA), and the input Library 
is already reduced, keep it that way. 


iF NOT .Lib$gl_ctlmsk Clib$v_data) 
AND .header Clhd$l_dcxmapvbn] neq 0 


HEN 
Lib$Sgl_cre8flags Clib$c_opt_dcx] =1 ; 


Init the control index 


if ,tidSal_creBflags[l ib$c_opt_dex] 
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| 
| 
| 
| 
If we're creating a DCX-processed Library... | 
| 
| 
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2 
31 

; $1 perform( Lbr$dcx_map(lLib$Sgl_Libctl, dcx_map_desc )); ; 
2 31 CHSMOVE (dsc$c_s_bin, Lib$gl_libfdb Cfdb$l_defext], 'Set default ext. : 
2 31 UTbsgl_outt b"Cfdb$l_defext]); ; 
§ 3 outnamblk Cnam$l_rlfJ = Libnamblk; 'Set up related filename block : 
2 ; Save size of additional data area in module if /COMP=KEEP F 
26 1 usrmodhdrlen = -lLibSal_hdrlen C.Lib$Sgl_typel; 'Save defaults ; 
4 ; if gt idSol_ctlask Clib$Sv_keep] 

#4 3 LibSal_hdrlen C.lib$gl_type] = .header Clhd$b_mhdusz]; '‘Use value in Library : 
44 3 Create output Library; make it with data reduced if it should be so. ; 
69 P perform (lib_create_lib (, Libgal outfdb, outlibindex, ; 
A P CIF Tlib$gl"cre8flags(lib$c_opt_dcx] ines dcx map_desc : 
% LibSal_hdrlen C.lib$gl_type] = .usrmodhdrlen; . ‘Restore defaults 

7% IF tibSat ctlmsk Clib$v_convert) ‘If this is forced convert 

75 C (lLibS_cnvrting, 2, outdesc, Libdesc); ' tell user whats happening 


THEN SIG 


LIB_COMPRESS 1b-se Sep-1984 AX-11 Bliss-32 V4.0-7 Page 7 
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: 277 1335 ! Call the Library procedures to return each entry in the module name 
; f | $ i index. It will call copymodule for each entry. 
: 280 Pj : rms_perform (get, index. it _not ~enpty() 
> 281 1 ibs. dexerr, .lbr$gl_rmsstv, 1, libdesc); 

: : re 03, Oat. ctlmsk (Tb$y _keeod 'If history is to be retained then 
: 284 1348 BEGIN | 
; 285 134 status = lbrS$get_history (Lib$gl_Llibctl, Lib_put_history); !copy history 
3 BS : te IF wot -Status 
: 288 1346 SIGNAL (Lib$_histerr, 1, libdesc, .status); 
: $99 1348 see: | 
: 291 P 1349 2 rms_perform (Lbr$close (outlibindex), ‘Close the new Library 
: : 29 Lib$_closeout, . Lbr$gl_ rmsstv, 1, outdesc); 
> 294 P 135¢ ¢ rms_perform (LbrSclose (LibSgl_tibetl), tand the old Library | 
3 32 ! :7 Lib$_closein, .lbr$gl_rmsstv, 1, outdesc); 
. 
3; 297 1355 Lib$Sgl_ctlmsk Clib$v ss = false; 'No Longer old Library 
: 298 1356 Lib$gl"Libfdb = .LibSgl_outfdb; 'Make the Library FOB | 
:; 299 1357 ' the old output FOB 
; 300 P 1358 perform (lbr$ini_control (Lib$gl_libctl, after_func, 'Init control block to open Lib 
; 301 P 1359 Tib$gl_type, outhamblk), 
3 4 if 4 Lib$S_initerr, 1, outdesc); | 
: 304 P 1386 rms_perform oad (LibSgl_libctl), 'Open newly created Library 

: 305 136 LibS_openin, Jlbr$gl_ rmsstv, 1, outdesc): 

; 306 1364 
; Sor 1365 RETURN true : 
; 308 1366 1 END; !Of Lib_compress_lib 


.TITLE LIB COMPRESS | 
IDENT \VO%-000\ | 


.PSECT $OWNS,NOEXE,2 
00000 CURINDEX: = 
00004 NEWTXTRFA: 
0000¢ OUTLIBINDEX: 
00000000 00010 FUNC: LONG 
-PSECT $GLOBALS$,NOEXE ,2 


of @o ££ 


00000 DCX_MAP_DESC:: 
-BLKB 
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LIB_COMPRESS 16-Sep-1984 AX-11 Bliss-32 V4.0- Pa 
vOu=600 14-Sep O71 98e 2:49: HH LIBRAR.SRCJCOMPRESS. 633; :1 ” 
-EXTRN LBRSPUT_END, LBRSSET_ INDEX 
-EXTRN LBRSSET™ MODULE, LBRSGET RECORD 


“EXTRN LIB_LOG_OP; LIB_CREATE_LIB 
EXTRN teRSEL CONTROL Ly BRSGL-RMSSTV 


EXTRN LI 
EXTRN LIBSGL-LIBCTL, LIB$GL_CIBF 
SEXTRN LIBSGL~ “OUTFDE tieset~ CTLMSK 
EXTRN LIBS$GL~CRESFLAGS 
EXTRN LIBS$GL-ALLGBLS, LIBSGL_ALLMODS 
EXTRN LIBSGL-ALLKSZ, LIBSGL_ALLHIS 
EXTRN LIBS$GL-OBJGSDIX 
-EXTRN LIBSGL~MODNAMIX 
EXTRN LBR$_NOLIDX, LIB$_EMPTYLIBRARY 
EXTRN LIB$_CN VRTING. LIBS_HISTERR 
-EXTRN LIBS_INDEXERR, LIBS"INITERR 
EXTRN LIBS-INSERTED, LIB$~INSERTERR 
EXTRN LIBS"LOOKUPERR, LIBS_MHDERR 
-PSECT SCODES,NOWRT,2 
OFFC 00000 .ENTRY Le afQMprs. LIB, Save R2,R3,R4,R5,R6,R7,R8,- 
5B 00006 CF 10 ¢1 00002 ADDL3 nig. CfESGL -L1BF DB, R11 
59 00006 CF 10 ¢€1 00008 ADDL3 #16, LIBSGL-OUTFDB. R9 
SA 00006 CF 00000060 BF C1 O000E ADDL3 #64. t1BS¢L7L IBF DB. R10 
+} 00006 CF 00000060 8F C1 00018 ADDL3 #64. LIBSGL-OUTFDB. R8 
50 000000006 00 00 00022 MOVL LBREGL CONTROL, R 
56 0A AO DO 00029 MOVL _10(RO)> HEADER 
08 00006 CF 01 EO 00 p BBS #1, LIBSGL_CRESFLAGS, 1$ 
00006 CF 6A Ab 6— Ab C3 000 SUBL3 110(HEADERY, 106(HEADER), LIBSGL_ALLGBLS 
08 00006 CF 02 £0 00038 1$: BBS #2, LIBSGL_CRESFLAGS, 
00006 CF 6E Ab 78 Ag C1 00041 ADDL3 1 bche ADERD TIOCHEADER) . LIBSGL_ALLMODS 
24 00006 CF 0 2! 00049 2$: BBS LIBSGL_CRE , 
00006 CF 9 D004 TSTB tyésci- tttase te 
OF 18 0093 BGEQ $ 
50 90006 CF 06 005 MOVL LIBSGL_TYPE RO 
00006 CF O00GCF40 D 005A MOVL §LIBSALASCBINFCROJ, LIBSGL_ALLKSZ 
OF 11 00062 BRB 4$ 
50 0064 C6 3 064 3$: MOV 196 (HEADER) 
00006 CF 3 AO 3C 00069 MOVZWL 2(RO), tiBsé RALLKSZ 
00006 CF 07 O6F DECL  LIBSGL_A 
00006 CF 00006 CF p 073 4$: MOVL L1Bscl ALEKS? LIBSGL_KEYSIZE 
000G CF 8 7A BISB2 #8, LIBSGL_CRESFLAGS 
06 000G CF 4 5 7F BBS 4) LIBSGL~CRE8FLAGS, 5$ 
00006 CF 7¢ Ag C 5 MOVZ2WL 124(HEADERY, LIBSGL_ALLHIS 
5 pd 5$ PUSHL R 
00006 CF 9F PUSHAB LIBSGL_ TYPE 
9000" CF OF 1 PUSHAB 
000' CF 9F 5 PUSHAB OUTLIBI 
000000006 09 4 FB 99 CALLS #4 iiteReint. CONTROL 
1 0 E OOA0 BLBS STA 
DD 000A PUSHL STATUS 
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1B$GL 
BSAL “HDREENCROD, USRMODHDRLEN 
BSGL~CTLMSK+3 


HEADER), LIBSAL_HDRLENCROJ 
$GL_CRE8FLAGS 


( 
8 
$ 
X_MAP_DESC, RO 
$ 
s 
TL 


ah 


BINDEX 
3, LIB_CREATE_LIB 
TATUS, 13$ 
IBSGL_TYPE, 
SRAODADRLER. pital -HDRLENCROJ 
Liss 85-4) CTL AS 


#L1B$ CNVRT ING 
#4, LIBS 
#0, bees “INDEX. IF _NOT_EMPTY 


Ss 
LaRsct “RMSSTV 
STATUS 


n 188, INDEXERR 
$SIGNAL 

tigsst. CTLMSK+3 
LIB PUT HISTORY 


ye MEBRSGET HISTORY 


fon 
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LIB_ COMPRESS 15 Sep-19 46:57 AX-11 Bliss-32 V4.0-74 
e=500 1 Het 7 93:99: 2f LIBRAR.SRCJCOMPRESS. os. 
1 DD 0018¢ PUSHL a 
000000006 i DD 001 E PUSHL #LIBS_HISTERR 
eooonans 00 anoa: HPS vas: Fithta Sistgtasle 
000000006 00 1 re 19F CALLS i srtBRschgse 
9 E 1Ag LBS ATUS, 17$ 
000000006 DD OO1A PUSHL PBRSGL’ RMSSTV 
DD 1AF PUSHL ATUS 
9 DD 00181 PUSHL 
1 OD 0183 PUSHL 
00861058 8F DD 001B PUSHL # 08 
000000006 5 FB 18 CALLS #5, LIBS$SIGNAL 
00006 CF 9F 001C2 17$:  PUSHAB LIASGL LIBCTL 
000000006 1 FB O1C CALLS #1, LBRSCLOSE 
ae 0 €8 001CD LBS ATUS, 
000600006 00 DD 00100 PUSHL LBRSGL’RMSSTV 
20 DD 00106 PUSHL STATUS 
DD 00108 PUSHL 
o1 DD 001DA PUSHL 
00861050 8F DD 0010¢ PUSHL #8786000 
000000006 00 05 FB ore CALLS #5, LIBSSIGNAL 
00006 CF 80 8F 8A OO1E9 18$: BICB2 #128, LIBSGL_CTLMSK+2 
00006 CF 00006 CF DO OO1EF MOVL (TaséL  OUTEDBS Mitt _LIBFDB 
58 DD 001F6 PUSHL RB 
00006 CF 9F 001F8 PUSHAB LIBSGL TYPE 
AC 9F OO1FC PUSHAB AFTER F NC 
00006 CF 9F OOTFF PUSHAB LiBscc 
000000006 00 04 Fe 00203 CALLS CaRS TAN "CONTROL 
13 50 £8 O020A BLBS erATue. 19$7 
20 DD 00 OD PUSHL 
9 DD 0020F PUSHL 
01 DD 00211 PUSHL #1 
000000006 8F ODD 00 13 PUSHL #L1BS INITERR 
000000006 04 FB 00219 CALLS LTBSSIGNAL 
00006 CF 9F 00 0 19%:  PUSHAB tise 
000000006 gi FB 00224 CALLS CoRSOE 
9 0 E8 00228 LBS AT OOS. 
000000006 00 DD 0022 PUSHL LBRSGL.RMSSTV 
0 DD 00 PUSHL STATUS 
9 DD 00 PUSHL 
4 DD 00238 PUSHL 
00861098 8F DD O023A PUSHL #8786072 
000000006 00 05 FB 0240 CALLS #5, LIBSSIGNAL 
50 01 p 00 47 20$:  MOVL #1. RO 
4 0026A RET 


3; Routine Size: 587 bytes, Routine Base: $CODE$ + 0000 
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vo afORPRESS 


< Ll call copymodule for each entry. Treat the empty library 
case ben i 
status = lLor$get_index (Lib$gl Uforet. Lib$gl_modnamix, ‘Return the index 
copymodule); 'and call copymodule for each entry 
IF “grerus EQL Lbr$_nulidx THEN 


bool (LibS_emptylibrary, 1, Lib$Sgl_lLibfdblfdb$l_namdesc)); 
+ pa = ss$_normal; 


be ts 9 a 2 ts tt ts 


OOOO O99 NIN NI INNIS NNNIOO OO 
ANEW" OCONOULS WN" O0OO~ 


1 

= the a tbcory procedures to return each entry in the module nam 
! index. 

1€ 


ODONAUS WN | OOODNAUE WN O 


RRoPoRPORoPoNoNn 2 oa 


to Status; 


0004 00000 oer semen It NOT a 


ORB Save 
0000v CF 9F 00002 PUSHAB COPYM 
00006 CF 9F 00006 PUSHAB LIBS$GL -MODNAMIX 
00006 CF 9F OOO0A PUSHAB Hi Conk LIBCTL 
000000006 00 03 FB 000g CALLS RSGET_INDEX 
52 0 pO 0001 MOVL STAT 
000000006 8F 3 D1 90018 CMPL erATOS. #LBRS_NULIDX 
18 12 OOO1F BNEG 
7E 0000G CF 10 C1 4 1 ADDL3 #16, LIBSGL_LIBFDB, -(SP) 
1 DD 00027 PUSHL #1 
000000006 8F DD 00029 PUSHL a, 188 Em EMPTYLIBRARY 
000000006 00 3 FB O02F CALLS SSIGNA 
52 01 DO 000 MOVL #1. STATUS 
50 2 00 00 9 1$: MOVL STATUS, RO 
04 03C¢ RET 


; Routine Size: 61 bytes, Routine Base: S$CODES + 0248 
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LB COHPRESS 18-Sep-1966 01:46:57 YAN IT BLieg-32 v4.0-742 | Page 1. 


st 


; 1 1387 1 ROUTINE copymodule (keydesc, modrfa) = ; 
3 ¢ 1 5 BEGIN . 
; 1 ; 
; 4 1390 14+ : 
3 5 1391 ! This routine is called ay B. the, Librarian for each name in the : 
3 $ 1 35 ' module name index. for the name is read and inserted ; 
; 139 ! into the new ferary, ya then the key is saper ree into the ; 
: 8 1394 ! index. If there is more than one index in the Li od the other ; 
: 9 1395 ' indices are searched to find all symbols associated with ; 
3 re ; a8 the module, and they are entered into the new Library. : 
3 r4 1398 ! Inputs: : 
; 34 1399 : ; 
: 44 1400 ' keydesc address of opr tne nt Pad for module name : 
5 45 1401 } modrfa address of rfa of module 2 
: 346 1006 ! ; 
: 347 140 ' Outputs: : 
: 348 1404 ' : 
: $08 1405 ' The module is copied into the output Library ; 
; 350 1406 ! : 
s 551 1407 leo 3 
; 326 1408 3 
$ 5 1409 MAP 3 
; 354 1410 keydesc : REF BBLOCK Cdsc$c_s_bin]; F 
s 355 1411 3 
; 356 ret LOCAL 3 
ce mar 141 rms ea ‘Status from RMS operations 3 
: 358 1414 2 first put 'flag true when first put done 3 
3 359 1415 2 header : BBLOCK Chords _pagesizel, ‘Buffer for header 3 
; 360 1416 2 bufdesc : BBLOCK Cdsc$c_s_bln], jgesce iptor for buffer ; 
3 636) 1417 2 rfa: BBLOCK C(rfa$c_length); ' Dummy : 
; 306 1418 H 3 
H 6 1419 IND 3 
; 364 1420 2 Libheader = .lbr$gl central Clor$l_hdr we BBLOCK, :Point to the library header : 
; 3e3 1421 § Libdesc = Lib$gl_libfdb Cfdb$l tnandesc : BBLOCK . ‘Name the filename descriptor F 
; $08 1056 outdesc = Lib$gl out fdb abst namdesc) : BBLOCK; !... : 
: 365 P 1424 $ rms_perform (Lbr$find (Lib$gl_libctl, .modrfa) Lookup key fe find text F 
3 $98 \6$? 2 Lib$_lookuperr, . Lbr$gi_ rmsstv, 2, 4, Libdesc); : 
3 Sri 1427 $ bufdesc Cdsc$a_pointer] = header; ; 
- oe 1428 first_put = true; F 
: He 1030 3 
3 75 1431 ' Read all text records for the module until end of file is returned. Write the records 3 
3 76 1636 into the new Library. " 
; 378 1434 WHILE (bufdesc Cdsc$w length] = lbr$c pe gent : 
: 379 1435 rms_ status = [br$get_record (Tib$gl_ (foctt, bufdesc. bufdesc); !Read all records of module 3 
; a0 1638 4 IF ROT .rms_status AND (.rms_status NEQ rms$_ eof) 3 
:; 38 1437 4 THEN BEGIN ~ 3 
; 36 1438 4 SIGNAL (Libs _readerr, 1, Libdesc, .rms_status, .lbr$gl_rmsstv); 3 
s 38 1439 4 EX ITL OOP; 3 
3 584 1440 END; : 
: 85 1441 : 
; 386 1336 -rms_status NEQ rms$_eof) : 
: 87 144 DO BEGIN é 


cape ¥ ie 
m9 
LIB_COMPRESS 16-Sep-1984 01:46:57 AX=11 Bliss-32 V4.0-74 Page 13 LIB. 
127000 12286871382 93:99:28 LIBRAR.SRC COMPRESS.039:1 . (5) ve: 
; 8 LOCAL 
9 status; 
90 status = lbr$put_record (outlibindex, bufdesc, ! and write them to new Library 
91 TIF .first_put THEN newtxtrfa ELSE rfa)); 
9 IF NOT .status 
9 THEN BEGIN ! exit and write end of module record 
94 oiitacs ere reeert. 1, outdesc, .status, .lbr$gl_rmsstv); 
95 EXITLOOP; 
96 D; 
97 
98 first_put = false; 
99 END; 
400 
202 
40 P rms_perform (lbr$put_end (outlibindex), 'Terminate PUT 
t8e ;, LibS_writeerr, .lbr$gl_rmsstv, 1, outdesc); 
rey Insert the module name into the new Library 
40 P perform (lbr$set_index (outlibindex, Lib$Sgl_modnamix), !Insert into module name index 
40 TibS_indexerr, 1, outdesc); 


rms_perform (lbrSinsert_key (outlibindex, .keydesc, newtxtrfa), !Insert key into index 
LibS_inserterr, .lbr$gl_rmsstv, 2, .keydesc, outdesc); 


' 
: Read module header from old Library 


bufdesc Cdsc$w_length] = Lbr$c_maxhdrsiz; 

bufdesc Cdsc$a_pointer] = header; 

rms_perform (lLBr$set_module (Libs L_libctl, .modrfa, bufdesc, bufdesc), 
LibS_mhderr, .lbr$gl_rmsstv, 2, .keydesc, Libdesc); 


; Set insert date/time of module in new Library 


ibr$insert time (outlibindex, newtxtrfa, header Cmhd$l_datim]); ‘ 
perform (lBr$set_index (Lib$gl_Libctl, (ib$gl_modnamixS, 'Set to old Library 
' Tib$_indexerr, 1, libdesc); 

i If there is user information in the module header, update the module header 
! in the new Library. 
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5 


1 
if .libheader Clhd$b_mhdusz) NEQ 0 
THEN BEGIN 
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bufdesc bdsc$u_ length) = ,libheader (Clhd$b_mhdusz); 'Set Length of update data 
bufdesc Cdsc$a_pointer] = header Cnnasb_usr atl; ‘Point to update data 
rms_perform (l\Br$set_module (outlibindex, newtxtrfa,0,0,bufdesc), ‘!Update module header 
Lib$_mhderr, 7 {bcset rmsstv, 2, .keydesc, outdesc); 
perform (lbr$set_index (Lib$gl_Tibctl, Lib$gl_modnamix), 'Set to old library 
LibS_Tndexerr, 1, libdesc); 
32 , END; 
441 97 ! If there are global symbols in the module, then search the index of the old library for them 
rk 38 so they can be entered into the new Library global symbol index 
444 00 IF .Libheader Clhd$b_nindex] GTR 1 'If there is more than one index 


Text for module has been copied. Write end of module record 
| 
| 
| 


LIB_COMPRESS 

yOe=000 

7 et: 
: rk 1 08 
; 448 1504 
; 449 P 1505 
; 450 P 1506 
; «4451 1282 
3 teg 1508 
; 45 1509 
3 6454 1510 
s 4655 1511 
; 456 P 1216 
3; 457 151 
; 458 1514 
; 459 1515 
; 460 1516 
3: 461 1517 
3: 462 1518 
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AX-11 Bliss=-32 V4.0-74 1 
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THEN BEGIN 
be ele FROM 2 TO .Libheader Clhd$b_nindex] 'Loop through the other indices 
curindex = .i; 'Set current index number 
rms_per form “tibrssearch git tbSal. Libctl, 'Search index for symbols 
curindex, .modrfa, enterglobals), 'so they can be entered in new Library 
Libs _indexerr, -lor$gl_rmsstv, 1! Libdesc); 
END; 


perform wigethinesty (Lib$gl_ ‘bag 0 Libsgl modnamix),!Do set index to set index number and Lbr$gl_control 


ndexerr, 1, li 
Lib_log_op (Lib$_inserted, 
RETURN true 
END; 


ekeydesc, .lLib$Sgl_outfdb); 'Log on console if logging 


=POPIPNINPININININW ES FLEE Pw 


| 

| 

END; | 
| 

'Of copymodule 
| 


OFFC 00000 COPYMODULE : 
W RD 


0 Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1387 
5B 000000006 00 9€ 00002 MOVAB LBRSSET INDEX. R11 : 
5A 000000006 8F D0 00009 MOVL #LIB$_INDEXERR, R10 : 
59 0000' CF 9E 00010 MOVAB OUTLIBINDEX, R9 : 
58 000000006 00 9E 00015 MOVAB LBRSGL_RMSSTV, R8 : 
57 000000006 00 9E 9001¢ MOVAB LIBSSIGNAL R? ; 
5E FDFO CE 9E 0002 MOVAB <-528(SP), §P ; 
50 000000006 00 D0 00028 MOVL LBRSGL_CONTROL, RO > 1420 
52 0A AO 00 000¢F MOVL.  10(RO)> R2 F 
55 00006 CF 10 C1 00033 ADDL3 #16, LIBSGL_LIBFDB, R5 + 1421 
4 00006 CF 10 €¢1 00039 ADDL3 #16 atti ~OUTFDB. R6 + 1422 
08 AC DD 0003F PUSHL mODREA > 1425 
00006 CF 9F 00042 PUSHAB LIB$GL_LIBCTL ; 
000000006 00 02 FB 90046 CALLS #2, LBRSFIND : 
14 E8 00040 BLBS STATUS, 1$ : 
68 DD 00050 PUSHL LBRSGL_RMSSTV F 
30 DD 00052 PUSHL STATUS : 
55 0D 00054 PUSHL R : 
04 AC dD 00056 PUSHL KEYDESC : 
ge DD 0059 PUSHL ; 
000000006 8F DD B PUSHL #LIB$_LOOKUPERR : 
67 06 FB 00061 CALLS #6, LIBSSIGNAL 3 
Oc AE 10 AE 9E 00064 1$: MOVAB HEADER, 6 BUF DESC +4 t 1427) 
54 1 00 00069 MOVL T PUT > 1428 
08 AE 0200 F 8B 006 2$: MOVW #512, RST pul + 1434 
AE OF 0 PUSHAB BUFDESC > 1435 
C AE 9F 0007 PUSHAB BUF DESC : 
00006 CF 9F 0007 PUSHAB L Bsc LIBC : | 
000000006 00 3 F 0076 CALLS ae RECORD ; | 
53 DO 000 MOVL RO. RMS STATUS : | 
19 E8 000 BLBS §_ RMS_ STATUS, 1436 | 
0001827A =F 53 OT 0089 CMPL = RMS“STATUS, #98938 : | 
10 13 00090 BEQL «6s 3$ : 


LIB. 
10 sats =11 Bliss-32 V4.0-74 Page 15 v04: 
16-Sep-1984 9:99:36 Haran Srcdcomness.03o; 1 (5) 

L1B_COMPRESS 14-Sep-1984 12:37: : 1438)  § 
v04=000 092 PUSHL LBRSGL_RMSSTV ; 2 § 
§ BD OnOe PUSHE RMS STATUS : i § 
5 DD 9 PUSHL R5 ~ ; oe | 
{BD 90038 PUSHL #8786098 P= i bs 
eee ee BRB $ $1462 | 2 § 
3 D1 OO0Ae 38 CMPL - RMS_STATUS, #98938 | : 
mee he i 3 Book Best FIRST_PUT, 4S dag fl 
06 ns ok QOAE MOVAB NEWTXTREA, RO : i 
5 03 if B2B¢ 4$ ae RFA, RO : ‘ i 
” $5 bb O0OBT $8 PUSHL ; 1446 | 7 3 
oc ~=hCO*dAA OF $0n9 PUSHAB BUFDESC ; 4 
a a a ee Pea 
000000006 00 Q3 FB 000BE BLS STATUS, : 1450 : 4 
13 : A PUSHL —LBRSGL “RMSSTV ; 3 
68 DD 000C PUSHL STATUS” : e 4 
36 bb oooce PUSHL a 
01 DD OO0CE PUSH AI ; 4 
wets Oi et os CALLS #5. LIBSSIGNAL 1449 2 | 
67 05 FB 000D6 BRB + 1454 ; 3 
04 11 00009 $ CLRL FIRST PUT 1434 = 4 
80 11 000DD BRB aS : 1460 ; 3 
81 FB OOOE] CALLS At LRSPUT_END : ff 
000000006 90 5) £6 GOdEs Bibs STATUS. 98 oy ; : 
68 DD OOOE pus. Lense : | 
38 DD OOOEF PUSHL : = 
01 DD O00F1 PUSHL 130 : me | 
OOS610De EOD Re CALLS #5. CIBSSIGNAL : 1465 ; 
67 05 FB Oper? 9$: PUSHAB LIBSGL _MODNAMIX F . % 
00006 CF 9F OOORC 98: PUSHAB LI | , i 
33 OO Bette CALLS #2, _LBRSSET_INDEX , | 
68 Oe ED bales BLBS STATUS, 108 ere 2 
08 an ES 8 PUSHL Z | e 4 
38 bp SO10R PUSHL RG : ; 3 
01 DD 0010C PUSHL | i i 
5A bb 0010 CALS fee LIBSSIGNAL : 1468 3 | 
67 04 FB 0011 108: PUSHAB NEWTXTRFA ; | 
F8 AD OOF O13 "  MOVL~—CKEYDESC, R3 F . | 
53 06 AG BO BOIt6 PUSHL ns od ; | 
33 FF MOTE CALLS #3. _LBRSINSERT_KEY | @ 

socoonees FF 30 eB 3 ; PUSHL LaRSGL- RMSSTV | ; 

80 DD a " PUSHR B-MCRS,R6D ; | : 

wee Eek PUSHL eSsui 

2 Dd 00 PUSHL  #LIB$_INSERTERR : 

000000006 FFB 00138 CALLS | #6, LIBSSIGNAL 1473 

08 it 80 8F 98 00138 118:  MOVZBW #128, 


, B_COMPRESS b-5e 50-1984 AX-11 Bliss-32 V4.0-74 ° 
LOe=600 geen 1382 95:99: A BRAR  SREICOMPHESS 635; 1 a 


1 7 16) LIB, 
1 Hi 49 vou: 
OC AE 19 AE 9E 0014 MOVAB HEADER, BUFDESC+4 : 1476 F 
AEF 0014 PUSHAB BUF DESC : 1476 | ; 
C AE 9F 0014 PUSHAB BUFDESC : | ; 
8 AC pp 0148 PUSHL MODRFA : ; 
00006 CF 9F 0014 PUSHAB LIBSGL L ab 18¢ : ; 
000000006 00 4 FB O19 CALLS #4, LBR SET. "hopuLe é : | ; 
11 0 €8 001 BLBS STATUS, 12$7 , : ; 
68 0D 13¢ PUSHL LeRscL *RMSSTV : : 
DD 001 PUSHL STA : ; 
§ BB 0016 PUSHR Sek »R5> : 3 
DD 0016 PUSHL # : ; 
000000006 BF DD 00164 PUSHL root MHDERR : : 
67 6 FB OO16A CALLS # LIBSSIGNAL : : 
18 AE 9F 0016D 12$:  PUSHAB HEA + 1480 ; 
FB OAS OOF 90170 PUSHAB HOO TRIREA : ; 
59 DD 0017 PUSHL RY : ; 
000000006 00 03 FB 00175 CALLS LBRSINSERT TIME : ; 
00006 CF 9F 0017¢ PUSHAB tiésct NAMI IR + 1482 ; 
00006 CF 9F 00180 PUSHAB LIBS6L riBCt : ; 
6B be FB 00184 CALLS CORSET. | NDEX : 3 
0B 50 €8 00187 BLBS STATUS, 13$7 : : 
50 DD 0018A PUSHL SrA Tus. : é 
55 DD 0018C PUSHL R5 : ; 
01 DD 0018€ PUSHL #1 : ; 
5A DD 00190 PUSHL R10 : : 
67 04 FB 00192 CALLS #4, LIBSSIGNAL : : 
3c 6 A2—«s«9S- «00195 13%:  TSTB 60¢(R2) + 1487 ; 
4A 13 00198 EQL 4=s«415$ : ; 
08 AE 3C = A2,—s«9BCO019A MOVZBW 60(R2), BUFDESC + 1489 : 
OC AE 20 AE 9E 0019F OVAB HEADER+16, BUFDESC+4 + 1490 : 
08 AE 9F OO1A4 PUSHAB BUFDESC > 1492 ; 
7E 7C OO1A7 CLRQ = =(SP) : ; 
F8 AS 9F 001A9 PUSHAB NEWTXTRFA : : 
59 DD OO1AC PUSHL R9 : ; 
000000006 00 05 FB OO1AE CALLS #3, rLBRSSET _MODULE : 3 
13 50 £8 00185 BLBS 14$7 : ; 
68 DD 00188 PUSHL Lens *RMSSTV : | : 
0 DD 001BA PUSHL STAT : | 3 
0048 8F BB 001BC PUSHR #*M<R3,R6> : 3 
02 OD 901¢0 PUSHL @# : : 
000000006 8F DD 001C2 PUSHL #LIB$_MHDERR : 3 
67 06 FB 001C8 CALLS #6, LIBSSIGNAL : : 
0000G CF 9F 001CB 14$:  PUSHAB LIBS$GL -MODNAMIX 1494 | : 
0000G CF 9F OOICE PUSHAB L BSGL Lo iBcTL : | : 
6B ee FB 0103 CALLS LBR RSET INDEX : ; 
0B 50 £8 00106 LBS SFATU : : 
20 DD 00109 PUSHL STATUS’ : : 
55 DD 001DB PUSHL RS : ; 
01 DD 001DD PUSHL “1 : ; 
5A DD 001DF PUSHL R10 : : 
67 04 FB oie! CALLS LIBSSIGNAL : : 
52 01 A2 9A OO1E4 15$:  MOVZBL Fi tha) : 1500 | 3 
01 91 OO1E8 CMPB ne n® ; | ; 
18 O1EB BLEQU 19$ ; ; 
54 2 pO OO1ED MOVL Ke I ; 1502 | : 
B 11 O1FO BRB é : ; 
F4 OAD 4 DBO OO1F2 168 MOVL 1, CURINDEX ; 1506 | : 


aO8 ofa 184 .86 fe 86 28s 04 188 286 8s 2 


a a a a ee a a 


sn 


; Routine Size: 17 bytes, Routine Base: S$CODE$ + 0408 


dD 10 
LIB_COMPRESS 16-Sep- AX-11 Bliss-32 V4.0-74 Page 17) LIB, 
02000 14- =Sep- 198 9}: 39: 35 LIBRAR.SRCJCOMPRESS.B32;1 . (5) v04: 
0000v CF 9F 001F6 PUSHAB ENTERGLOBALS : 1507) , 4 
08 AC D OO1FA PUSHL MOR FA. : 3; 
00066 CF oF 60200 PUSHAB tBScL IBCTL : | sg 
000000006 00 O4 FB 4 CALLS Hat ARCH : 9 
0D & B BLBS ; | 
DD PUSHL LaRSGL “RMSE TV : 3 
DD 0021 PUSHL STATUS : | 
DD 0091 PUSHL ; | : 
Q1 DD 00214 PUSHL #1 : 3; 
A 00 16 PUSHL R10 : : 
67 5 FB 0 1 CALLS #5, LIBSSIGNAL F . 4 
4 06 00218 17$: INCL I : 1502 3 4 
52 4 01 0021D 18$: CMPL I, R2 : 3; 
DO 1B 00 9 BLEQU 16$ : 3; 
00006 CF 9F 00222 198: PUSHAB LIBSGL_MODNAMIX + 1513 3; 
00006 CF 9F 00226 PUSHAB LIBS$GL~LIBCTL : | 
68 2 FB 0022A CALLS #2, LBRSSET_INDEX : | 
0B E 99 D LBS STATUS, 20$ : Ri 
20 DD 00 PUSHL STATUS : > 
55 DD 99 2 PUSHL R5 : : 
gi DD 00 PUSHL #1 : 24 
A DD 00 PUSHL R10 : 3: 
04 FB 00 CALLS LIBSSIGNAL : s 
00006 cr DD 00238 20$: — PUSHL Tasee _OUTFDB > 1515 4 
DD 0023F PUSHL R : : 4 
000000006 BF oD 00241 PUSHL #188 INSERTED ; ie 
00006 CF 03 FB 00247 CALLS #3, _LOG_OP ; : 
50 01 0 0024¢ MOVL #1. RO : 1517 3: 4 
04 0024F RET : 1518 ; 
; Routine Size: 592 bytes, Routine Base: S$CODE$ + 0288 : ‘ 
gs 4 
: 463 1519 1 3 
> 464 1520 1 ROUTINE Lib_put_history (rec_desc) = sf 
> 465 1321 3 BEGIN : 4 
: 4666 15 ; 'e¢ 3 lh 
: 667 15 ' g 4 
: 468 1524 lee : 4 
: 469 1525 RETURN LprSeut ptstery, ( outlibindex, .rec_desc ); ; 
: 470 1526 1 END; L7b_put_history ; 
4 
| 4 
2 4 
yA 
0000 00000 LIB_PUT_HISTORY: | 4 
-WORD Save nothing 3 1330 4 
06 AC DD 90002 PUSHL : 15 5 | eo 
0000° cf 9F F 90003 PUSHAB 0 TCIBINDEX : 4 
000000006 00 CALLS re TBRSPUT HISTORY : 
fe 00010 RET + 1526 


aes ; ae 


perenne es ae 
vouz600 ware t—i‘(‘i‘t;été*é i 72:99:33 UMfenancsne ScoMPReSs 659; 1 Page oy 


OOFC 00000 ENTERGLOBALS: 
WORD 


; 47 1527 1 ROUTINE enterglobals (keydesc) = 
; 47 1 8 BEGIN 
3 474 1 '¢ 
; 475 1550 : 
: 47 1531 ! This routine is called to enter a global symbol into the global symbol 
3s 47 1 ¢ ! index for an object module 
; 478 1 : 
; 479 1534 ! Inputs: 
; 480 1535 : 
; rt 1 § keydesc address of descriptor for symbol name 
; 48 12 8 ! Outputs: 
> 484 1539 ! 
; 485 1540 : Global symbol name is entered into index of new Library 
; 486 1541 ! 
; 487 1308 !== 
; 488 154 
; 489 1544 P 
3 rhs 1362 saveene : REF BBLOCK; ‘Really a string descriptor 
; 49 1547 Libdesc = Lib$gl_libfdb Cfdb$l_namdesc]) : BBLOCK, 'Name the filename descriptor 
3 rt 1268 outdesc = Lib$gl_outfdb Cfdb$l-namdesc] : BBLOCK; '!... 
; 4495 P 1550 perform (lLbr$set_index (outlibindex, curindex), 
: £36 1331 Tib$_indexerr, 1, outdesc); 
; 498 P 1388 rms_perform (lorSinsert_key (outlibindex, .keydesc, newtxtrfa), 
3 rs 1338 2 _inSerterr, .lbr$gl_rmsstv, 2, .keydesc, outdesc); 
; 501 P 1556 ‘ perform (lbrS$set_index (Lib$gl_lLibctl, Lib$Sgl_modnamix), 
: 50 1557 2 Tib$_indexerr, 1, libdesc); 
; 50 1558 2 
3; 504 1559 2R os true 
; 505 1560 1€ ‘of enterglobals 
- WO Save R2,R3,R4,R5,R6,R7 : 1527 
57 00000000G 8F p00 00002 MOVL #LIBS_INDEXERR, R7 ; 
26 00000000G 00 9€ 00009 MOVAB LBRSSET_INDEX, R6 3 
3 9000" cf 9E 9019 MOV OUTL IBIADEX. R5 ; 
4 000000006 4 9E 1 MOV LIBSSIGNAL 3 
53 0000G CF 10 C€1 0001 ADDL #16, LIBSGL _LIBFDB, R3 : 1547 
52 0000G CF 10 gl 00 ADDL #16, LIBSGL— “OUTFDB. R2 : 1548 
FL AS «OOF 000 PUSHAB CURINDEX : 1551 
55 DD 00028 PUSHL R 3 
66 Fs 0 CALLS #2, LBRSSET_INDEX F 
08 E 9 BLBS STATUS, 1$ ; 
DD PUSHL STATUS : | 
DD 8 PUSHL - : 
1 DOD PUSHL # F 
7 OO 9 PUSHL R7 3 
64 4 FB B CALLS #4, LIBSSIGNAL ; 
FB AS OF — 1$: PUSHAB NEWTX XTRFA 3: 1554 


| 
LIB_COMPRESS | -1984 46:57 AX-11 Bliss-32 V4.0-74 Pa 19) 
he=590 1 aarti 94:48:22 LIBRAR.SRC COMPNESS 639; 1 - (6) | 
04 AC DD 00041 PUSHL KEYDESC : 
5 DD 44 PUSHL R é 
000000006 0 4] 46 CALLS # LORS JNSERT KEY : | 
1 & 4D BLBS STATUS, 2$ : | 
000000006 DOD 0 PUSHL LBRSGL_RMSSTV 3 
DD 8 PUSHL STATUS ; 
0D PUSHL R : 
04 as DD 005A PUSHL KEYDESC é | 
DD 00050 PUSHL ; | 
00000000G 8F DD O0005F PUSHL Saar INSERTERR 3 
4 6 FB 00065 CALLS #6, LIBSSIGNAL $ 
0006 CF oF 0068 2$: PUSHAB LIBSGL_MODNAMIX > 1557 
0006 65 fF sf PUSHAB ete LIBCTL é 
66 3 FB 00070 CALLS #2, LBRSSET_INDEX 3 
08 50 €8 00073 BLBS STATUS, 3$ 3 
29 DD 00076 PUSHL STATUS : 
53 DD 00078 PUSHL R3 r 
01 DD OOO7A PUSHL #1 $ 
57 dD 0007C PUSHL R7 ; 
64 04 FB QOO7E CALLS #4, LIBSSIGNAL 3 
50 01 DO 00081 3$: MOVL #1, RO 3: 1559 
04 00084 RET : 1560 
; Routine Size: 133 bytes, Routine Base: S$CODE$ + 04E9 
506 1561 1 END ! Of module 
507 1562 0 ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY | 
; Name Bytes Attributes | 
: SGLOBAL$S NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
; SOWNS 20 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, Skog bE gb tt bs 
; SCODES 1390 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Bd as Fes Se a ee Symbols -------- Pages Processing | 
$ File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 32 0 581 00:01.1 


L PRESS 18-5¢ 20-1984 AX-11 Blisg-32 Vé.0-7 Pa | 
ibe=500 1e=seP- 138s 93:95:82 Henan SaeSconphess. 049-1 ve 
: COMMAND QUALIFIERS 

BLISS/CHECK= (FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:COMPRESS/OBJ=0BJ$: COMPRESS MSRC$:COMPRESS/UPDATE=(ENHS: COMPRESS) 


: piso; 1390 ¢ .° 28 data bytes 
: Elesced Time: F 78 
; Lines/CPU Min: 11 


; yossnes (Penta: 34449 
; Used: 262 pages 


: cre hey Complete 


"AH: BT13A-SE 
VAX/VMS V4.0 


0200 


TIA r 


ON 


R 


